Define CharList
 ( 'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P',
   'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z', 'a', 'b', 'c', 'd', 'e', 'f',
   'g', 'h', 'i', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v',
   'w', 'x', 'y', 'z', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '~', '`',
   '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '_', '=', '+', '[', '{',
   ']', '}', ';', ':',"'", '"', ',', '<', '.', '>', '/', '?', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '',
   '', '', '', '', '', '', '', '', '', '', '', '', '', '', '', '');

Define WidthList
 (  21,  17,  26,  20,  25,  19,  26,  23,   8,  14,  18,  14,  28,  21,  33,  16,
    33,  17,  16,  17,  21,  19,  30,  23,  22,  19,  21,  17,  26,  20,  25,  19,
    26,  23,   8,  14,  18,  14,  28,  21,  33,  16,  33,  17,  16,  17,  21,  19,
    30,  23,  22,  19,  33,  15,  23,  21,  24,  23,  23,  18,  21,  23,  33,   7,
     8,  40,  31,  16,  34,  40,  24,  18,  14,  14,  11,  20,  33,  33,  13,  20,
    13,  20,   7,   7,   7,  11,   7,  33,   7,  33,  11,  18,  20,  20,  20,  20,
    20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,
    20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,
    20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,
    20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20,  20);

Define RectList
 ( (   0,  0, 21, 48), (  22,  0, 14, 48), (  37,  0, 24, 48), (  62,  0, 18, 48),
   (  81,  0, 24, 48), ( 106,  0, 17, 48), ( 124,  0, 24, 48), ( 149,  0, 19, 48),
   ( 169,  0,  4, 48), ( 174,  0, 11, 48), ( 186,  0, 16, 48), ( 203,  0, 12, 48),
   ( 216,  0, 24, 48), ( 241,  0, 18, 48), ( 260,  0, 32, 48), ( 293,  0, 14, 48),
   ( 308,  0, 32, 48), ( 341,  0, 14, 48), ( 356,  0, 15, 48), ( 372,  0, 17, 48),
   ( 390,  0, 17, 48), ( 408,  0, 17, 48), ( 426,  0, 28, 48), ( 455,  0, 23, 48),
   ( 479,  0, 24, 48), ( 504,  0, 17, 48), ( 522,  0, 21, 48), ( 544,  0, 14, 48),
   ( 559,  0, 24, 48), ( 584,  0, 18, 48), ( 603,  0, 24, 48), ( 628,  0, 17, 48),
   ( 646,  0, 24, 48), ( 671,  0, 19, 48), ( 691,  0,  4, 48), ( 696,  0, 11, 48),
   ( 708,  0, 16, 48), ( 725,  0, 12, 48), ( 738,  0, 24, 48), ( 763,  0, 18, 48),
   ( 782,  0, 32, 48), ( 815,  0, 14, 48), ( 830,  0, 32, 48), ( 863,  0, 14, 48),
   ( 878,  0, 15, 48), ( 894,  0, 17, 48), ( 912,  0, 17, 48), ( 930,  0, 17, 48),
   ( 948,  0, 28, 48), ( 977,  0, 23, 48), (1001,  0, 24, 48), (1026,  0, 17, 48),
   (1044,  0, 32, 48), (1077,  0, 10, 48), (1088,  0, 23, 48), (1112,  0, 20, 48),
   (1133,  0, 22, 48), (1156,  0, 22, 48), (1179,  0, 22, 48), (1202,  0, 19, 48),
   (1222,  0, 20, 48), (1243,  0, 22, 48), (1266,  0, 27, 48), (1294,  0,  5, 48),
   (1300,  0,  5, 48), (1306,  0, 36, 48), (1343,  0, 27, 48), (1371,  0, 13, 48),
   (1385,  0, 32, 48), (1418,  0, 24, 48), (1443,  0, 22, 48), (1466,  0, 13, 48),
   (1480,  0, 13, 48), (1494,  0, 13, 48), (1508,  0, 10, 48), (1519,  0, 20, 48),
   (1540,  0, 25, 48), (1566,  0, 25, 48), (1592,  0, 11, 48), (1604,  0, 14, 48),
   (1619,  0, 11, 48), (1631,  0, 14, 48), (1646,  0,  5, 48), (1652,  0,  4, 48),
   (1657,  0,  4, 48), (1662,  0,  8, 48), (1671,  0,  5, 48), (1677,  0, 24, 48),
   (1702,  0,  4, 48), (1707,  0, 24, 48), (1732,  0, 12, 48), (1745,  0, 17, 48),
   (1763,  0, 16, 48), (1780,  0, 16, 48), (1797,  0, 16, 48), (1814,  0, 16, 48),
   (1831,  0, 16, 48), (1848,  0, 16, 48), (1865,  0, 16, 48), (1882,  0, 16, 48),
   (1899,  0, 16, 48), (1916,  0, 16, 48), (1933,  0, 16, 48), (1950,  0, 16, 48),
   (1967,  0, 16, 48), (1984,  0, 16, 48), (2001,  0, 16, 48), (2018,  0, 16, 48),
   (2035,  0, 16, 48), (2052,  0, 16, 48), (2069,  0, 16, 48), (2086,  0, 16, 48),
   (2103,  0, 16, 48), (2120,  0, 16, 48), (2137,  0, 16, 48), (2154,  0, 16, 48),
   (2171,  0, 16, 48), (2188,  0, 16, 48), (2205,  0, 16, 48), (2222,  0, 16, 48),
   (2239,  0, 16, 48), (2256,  0, 16, 48), (2273,  0, 16, 48), (2290,  0, 16, 48),
   (2307,  0, 16, 48), (2324,  0, 16, 48), (2341,  0, 16, 48), (2358,  0, 16, 48),
   (2375,  0, 16, 48), (2392,  0, 16, 48), (2409,  0, 16, 48), (2426,  0, 16, 48),
   (2443,  0, 16, 48), (2460,  0, 16, 48), (2477,  0, 16, 48), (2494,  0, 16, 48),
   (2511,  0, 16, 48), (2528,  0, 16, 48), (2545,  0, 16, 48), (2562,  0, 16, 48),
   (2579,  0, 16, 48), (2596,  0, 16, 48), (2613,  0, 16, 48), (2630,  0, 16, 48),
   (2647,  0, 16, 48), (2664,  0, 16, 48), (2681,  0, 16, 48), (2698,  0, 16, 48),
   (2715,  0, 16, 48), (2732,  0, 16, 48), (2749,  0, 16, 48), (2766,  0, 16, 48),
   (2783,  0, 16, 48), (2800,  0, 16, 48), (2817,  0, 16, 48), (2834,  0, 16, 48),
   (2851,  0, 16, 48), (2868,  0, 16, 48), (2885,  0, 16, 48), (2902,  0, 16, 48));

Define OffsetList
 ( ( 0, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 2, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 2, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 0, 0), ( 1, 0), ( 0, 0),
   (-1, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0),
   ( 1, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 1, 0), ( 2, 0), ( 1, 0), ( 2, 0), ( 1, 0), ( 0, 0), ( 2, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), (-1, 0), ( 1, 0), ( 1, 0), ( 1, 0), ( 0, 0), ( 0, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 0, 0), ( 1, 0), ( 3, 0), ( 1, 0),
   ( 1, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 8, 0), ( 2, 0), ( 2, 0),
   ( 1, 0), ( 0, 0), ( 1, 0), ( 0, 0), ( 4, 0), ( 4, 0), ( 2, 0), ( 3, 0),
   ( 0, 0), ( 3, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 1, 0), ( 1, 0), ( 5, 0),
   ( 1, 0), ( 5, 0), (-1, 0), ( 1, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0),
   ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0), ( 2, 0));

Define KerningPairs
 ("-J","-T","A,","A-","A.","A:","A;","AA","AS","AT","AV","AW","AX","AY","A","A",
  "A","A","A","A","A","B","B","C-","C","C","C","C","C","D-","D","D",
  "D","D","D","D","D","D","F,","F-","F.","F","F","F","F","F","G","G",
  "J","J","J","J","K","K","K","K","K","K","K","K","L","L","L","L",
  "L","L","L","L","L","O,","O.","O","O","P,","P-","P.","P:","P;","P","P",
  "Q","Q","T,","T-","T.","T:","T;","T","T","T","T","T","W,","W.","W:","W;",
  "W","W","X","X","X","X","X","X","Y,","Y.","Y:","Y;","Y","Y","Y","Y",
  "Y","Y","Z","Z","","","A","J","T","J","T","X","Y","Z","A","C",
  "D","F","G","J","V","X","Y","Z","Ү","A","C","D","F","G","J","V",
  "X","Y","Z","Ԯ","A","J","T","A","B","C","G","J","O","Q","","A",
  "B","C","G","J","O","Q","");

Define KerningValues

 (  -4,  -1,   1,   1,   1,   1,   1,   1,  -1,  -2,  -1,  -1,   1,  -1,   1,  -3,

    -2,  -3,  -2,   1,   1,  -1,  -1,   1,   1,   1,   1,   1,   1,   1,   1,  -1,

    -1,  -1,  -1,   1,  -1,  -1,  -2,   1,  -2,   1,   1,   1,  -3,  -3,   1,   1,

     1,   1,  -2,  -2,  -1,   1,   1,   1,   1,  -1,   1,   1,  -1,  -1,  -4,  -4,

    -4,  -4,  -1,   1,   1,  -1,  -1,  -1,  -1,  -5,   1,  -5,  -4,  -4,  -5,  -5,

    -1,  -1,  -4,  -1,  -4,  -3,  -3,  -2,  -2,  -2,  -4,  -4,  -3,  -3,  -2,  -2,

    -4,  -4,  -1,  -1,  -1,  -1,   1,   1,  -4,  -4,  -4,  -4,  -1,   1,   1,  -1,

    -4,  -4,  -2,  -2,   1,   1,   1,  -2,  -2,  -4,  -2,  -1,  -1,  -2,  -2,  -1,

     1,  -1,  -1,  -4,   1,  -2,   1,  -1,  -6,  -2,  -1,   1,  -1,  -1,  -4,   1,

    -2,   1,  -1,  -6,   1,  -2,  -2,   1,   1,  -1,  -1,   1,  -1,  -1,  -1,   1,

     1,  -1,  -1,   1,  -1,  -1,  -1);

CreateLayer               Main;
LayerSetImage             Main 'Halfmoon30';
LayerSetAscent            Main 39;
LayerSetCharWidths        Main CharList WidthList;
LayerSetCharWidths        Main (' ') (16);
LayerSetKerningPairs      Main KerningPairs KerningValues;
LayerSetImageMap          Main CharList RectList;
LayerSetCharOffsets       Main CharList OffsetList;
LayerSetAscentPadding     Main 0;
LayerSetLineSpacingOffset Main 0;
LayerSetPointSize         Main 30;

SetDefaultPointSize  30;
